bioassay <- read.table("data-raw/bioassay.txt", header = TRUE)
usethis::use_data(bioassay,overwrite = TRUE)
